home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / MENU.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  69 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5. menu:
  6.  queue clear;queue add "gosub pausing";display stat=off
  7. tof:
  8.  display inhibit;open -!g %phones;display noinhibit;if t nolog
  9.  set s1 "";while "t&&!js1,:~" grab s1
  10.  if t goto havepg
  11.  lput "\E[0m\E[2J\E[37;44mUnable to Locate Entries\E[m\r\n\n"
  12.  return
  13. nextpg:
  14.  set s1 "";while "t&&!js1,:~" grab s1
  15.  if !t goback tof
  16. havepg:
  17.  set s2 "";while "t&&!js2,:~" grab s2
  18.  set s3 "";while "t&&!js3,:~" grab s3
  19.  set s4 "";while "t&&!js4,:~" grab s4
  20.  set s5 "";while "t&&!js5,:~" grab s5
  21.  set s6 "";while "t&&!js6,:~" grab s6
  22.  set s7 "";while "t&&!js7,:~" grab s7
  23.  set s8 "";while "t&&!js8,:~" grab s8
  24.  set s9 "";while "t&&!js9,:~" grab s9
  25. listpg:
  26.  lput "\E[0m\E[2J\E[37;44mPick a Number to Add to the Dialing Queue or a Command to Execute:\E[m\r\n\n"
  27.  if %s1 split s1 "~" "~" "";lput " 1 \T%z1";lput \r\n
  28.  if %s2 split s2 "~" "~" "";lput " 2 \T%z1";lput \r\n
  29.  if %s3 split s3 "~" "~" "";lput " 3 \T%z1";lput \r\n
  30.  if %s4 split s4 "~" "~" "";lput " 4 \T%z1";lput \r\n
  31.  if %s5 split s5 "~" "~" "";lput " 5 \T%z1";lput \r\n
  32.  if %s6 split s6 "~" "~" "";lput " 6 \T%z1";lput \r\n
  33.  if %s7 split s7 "~" "~" "";lput " 7 \T%z1";lput \r\n
  34.  if %s8 split s8 "~" "~" "";lput " 8 \T%z1";lput \r\n
  35.  if %s9 split s9 "~" "~" "";lput " 9 \T%z1";lput \r\n
  36.  lput \r\n
  37.  lput " c Clear Dialing Queue to Start Over\r\n"
  38.  lput " g Begin Dialing from the Queue\r\n"
  39.  lput " l List Dialing Queue\r\n"
  40.  lput " a Add New Entry to Directory\r\n"
  41.  lput " d Add to a List of Files to be Downloaded\r\n"
  42.  lput " u Add to a List of Files to be Uploaded\r\n"
  43.  lput " p Set Password and Userid for a Board\r\n\n"
  44.  lput " n Next screen of selections\r\n"
  45.  lput " x Exit\r\n"
  46.  acceptl1 s0 "\n\E[7mYour Selection:\E[m "
  47.  if is0,x ife t closetx;return
  48.  if is0,g close;cl;queue run;queue clear;queue add "gosub pausing";goback tof
  49.  if is0,a close;gosub .%lib/addphone.t;gosub ak;goback tof
  50.  if is0,d close;gosub .%lib/adddl.t;gosub ak;goback tof
  51.  if is0,p close;gosub .%lib/addpw.t;gosub ak;goback tof
  52.  if is0,u close;gosub .%lib/adduplod.t;gosub ak;goback tof
  53.  if is0,n ife t goback nextpg;goback tof
  54.  if is0,c queue clear;queue add "gosub pausing";goback listpg
  55.  if is0,l cl;queue list;gosub ak;goback listpg
  56.  else if is0,1 sets s0 %s1
  57.  else if is0,2 sets s0 %s2
  58.  else if is0,3 sets s0 %s3
  59.  else if is0,4 sets s0 %s4
  60.  else if is0,5 sets s0 %s5
  61.  else if is0,6 sets s0 %s6
  62.  else if is0,7 sets s0 %s7
  63.  else if is0,8 sets s0 %s8
  64.  else if is0,9 sets s0 %s9
  65.  else set s0 ""
  66.  if !%s0 lput "\r\nInvalid Request\r\n";gosub ak;goback listpg
  67.  split s0 " " "~" "~" "";queue add "call %z0 : %z2"
  68.  lput "\r\nCall Enqueued for %z2\r\n";gosub ak;goback listpg
  69.